4D Doc Center : AP Is Picture Deprecated

4D Pack v13.2

AP Is Picture Deprecated


AP Is Picture Deprecated ( ptrPict ) -> Resultado

Parâmetro	Tipo	Descrição
ptrPict	Ponteiro	Ponteiro para o campo de imagem ou variável a testar
Resultado	Inteiro longo	0 = formato válido, 1 = formato obsoleto (PICT)

Descrição

O comando AP Is Picture Deprecated devolve 1 se a imagem referenciada pelo parâmetro ptrPict contém o formato PICT (obsoleto) PICT e 0 em caso contrário. Uma imagem será considerada obsoleta se está em formato PICT ou se contém o formato PICT (imagens inseridas por arrastar soltar podem incluir vários formatos).

Em ptrPict, passe um ponteiro ao campo imagem, a variável imagem ou o elemento de array imagem 4D a provar.

Este comando tem a intenção de preparar o desenvolvimento de suas aplicações para as próximas versões principais de 4D. Na verdade, o formato "PICT" Mac foi declarado obsoleto por Apple desde várias versões atrás de Mac OS (ver a descrição do formato PICT em Wikipedia). Se manteve em 4D por razões de compatibilidade, mas que já não é compatível a partir de 4D v14. Para se preparar para a migração de suas aplicações, pode começar a usar este comando com o fim de detectar todas as imagens PICT em sua base e converter elas a um formato nativo (por exemplo PNG) com ajuda do comando CONVERT PICTURE. Tenha em conta que uma vez convertidas a um formato, as imagens só contém este novo formato.

Nota: A eliminação do formato PICT requer de um análises prévio no caso das imagens destinadas a impressão. O formato PICT é um formato vetorial, pode ser utilizado em particular em Windows para impressão, quando está presente. Assim, neste contexto, é preferível converter as imagens PICT a outro formato vetorial, por exemplo EMF.

Exemplo

Você quer provar e converter todas as imagens de la livraria:

 PICTURE LIBRARY LIST($arrPictRef;$arrPictName)

 $vPictNums:=Size of array($arrPictRef)

 If($vPictNums>0)

    For($vPict;1;$vPictNums) // para cada imagem

       $vPictRef:=$arrPictRef{$vPict}

       $vPictName:=$arrPictName{$vPict}

       GET PICTURE FROM LIBRARY($arrPictRef{$vPict};$pvPict)

       $vPointer :=->$vPict // Passo de um ponteiro

       $isObs:=AP Is Picture Deprecated($vPointer)

       If($isObs=1) // Se o formato é obsoleto

          CONVERT PICTURE($vPointer->;".PNG") // conversão a png

          SET PICTURE TO LIBRARY($vPointer->;$vPictRef;$vPictName) // e armazenamento na livraria

       End if

       $vPict:=$vPict+1

    End for

 Else

    ALERT("A livraria de imagens está vazia.")

 End if